home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •Word Games• / HyperJotto 1.1 •••• / HyperJotto 1.1 ееее / card_13398.txt < prev    next >
Text File  |  1988-02-01  |  10KB  |  478 lines
  1. -- card: 13398 from stack: in.1 –µ–µ–µ–µ
  2. -- bmap block id: 14635
  3. -- flags: 4000
  4. -- background id: 2756
  5. -- name: Controls
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8006
  11. -- rect: left=61 top=79 right=101 bottom=161
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Common
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   beep
  23.   answer "Sorry, can't be changed."
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: E006
  31. -- rect: left=61 top=106 right=128 bottom=161
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Rare
  40.  
  41.  
  42. -- part 3 (button)
  43. -- low flags: 00
  44. -- high flags: E006
  45. -- rect: left=61 top=133 right=155 bottom=161
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Specialized
  54.  
  55.  
  56. -- part 4 (button)
  57. -- low flags: 00
  58. -- high flags: E006
  59. -- rect: left=61 top=160 right=182 bottom=161
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Archaic
  68.  
  69.  
  70. -- part 5 (button)
  71. -- low flags: 00
  72. -- high flags: E006
  73. -- rect: left=61 top=186 right=208 bottom=161
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Obsolete
  82.  
  83.  
  84. -- part 6 (button)
  85. -- low flags: 00
  86. -- high flags: 8006
  87. -- rect: left=161 top=79 right=101 bottom=261
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Regular
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   beep
  99.   answer "Sorry, can't be changed."
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 7 (button)
  105. -- low flags: 00
  106. -- high flags: E006
  107. -- rect: left=161 top=106 right=128 bottom=261
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Informal
  116.  
  117.  
  118. -- part 8 (button)
  119. -- low flags: 00
  120. -- high flags: E006
  121. -- rect: left=161 top=133 right=155 bottom=261
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Slang
  130.  
  131.  
  132. -- part 9 (button)
  133. -- low flags: 00
  134. -- high flags: E006
  135. -- rect: left=161 top=160 right=182 bottom=261
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Vulgar
  144.  
  145.  
  146. -- part 10 (button)
  147. -- low flags: 00
  148. -- high flags: C006
  149. -- rect: left=161 top=186 right=208 bottom=261
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Obscene
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   beep 4
  161.   Answer "Sorry, there are no obscene words!" with "Oh Well"
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 11 (button)
  167. -- low flags: 00
  168. -- high flags: 8006
  169. -- rect: left=261 top=79 right=101 bottom=361
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: English
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   beep
  181.   answer "Sorry, can't be changed."
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 12 (button)
  187. -- low flags: 00
  188. -- high flags: A006
  189. -- rect: left=261 top=106 right=128 bottom=361
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: American
  198.  
  199.  
  200. -- part 13 (button)
  201. -- low flags: 00
  202. -- high flags: E006
  203. -- rect: left=261 top=133 right=155 bottom=361
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: British
  212.  
  213.  
  214. -- part 14 (button)
  215. -- low flags: 00
  216. -- high flags: E006
  217. -- rect: left=261 top=160 right=182 bottom=361
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: Foreign
  226.  
  227.  
  228. -- part 15 (button)
  229. -- low flags: 00
  230. -- high flags: 8006
  231. -- rect: left=361 top=79 right=101 bottom=461
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: Ordinary
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   beep
  243.   answer "Sorry, can't be changed."
  244. end mouseUp
  245.  
  246.  
  247.  
  248. -- part 16 (button)
  249. -- low flags: 00
  250. -- high flags: 8006
  251. -- rect: left=361 top=106 right=128 bottom=461
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Derived
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   beep
  263.   answer "Sorry, can't be changed."
  264. end mouseUp
  265.  
  266.  
  267.  
  268. -- part 17 (button)
  269. -- low flags: 00
  270. -- high flags: A006
  271. -- rect: left=361 top=133 right=155 bottom=461
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: Plurals
  280.  
  281.  
  282. -- part 18 (button)
  283. -- low flags: 00
  284. -- high flags: E006
  285. -- rect: left=361 top=160 right=182 bottom=461
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: Names
  294.  
  295.  
  296. -- part 19 (button)
  297. -- low flags: 00
  298. -- high flags: 8003
  299. -- rect: left=363 top=262 right=284 bottom=463
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 1
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: Reset
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   Global Filter
  311.   put "RSOA" & return & "ISVO" & return & "BF" & return & "N" into Filter
  312.   set the hilite of button "RARE" to true
  313.   set the hilite of button "SPECIALIZED" to true
  314.   set the hilite of button "OBSOLETE" to true
  315.   set the hilite of button "ARCHAIC" to true
  316.   set the hilite of button "INFORMAL" to true
  317.   set the hilite of button "SLANG" to true
  318.   set the hilite of button "VULGAR" to true
  319.   set the hilite of button "OBSCENE" to true
  320.   set the hilite of button "AMERICAN" to false
  321.   set the hilite of button "BRITISH" to true
  322.   set the hilite of button "FOREIGN" to true
  323.   set the hilite of button "PLURALS" to false
  324.   set the hilite of button "NAMES" to true
  325. end mouseUp
  326.  
  327.  
  328.  
  329. -- part 20 (button)
  330. -- low flags: 00
  331. -- high flags: 8003
  332. -- rect: left=365 top=290 right=312 bottom=465
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: Exit
  341. ----- HyperTalk script -----
  342. on mouseUp
  343.   set the cursor to 4
  344.   push recent card
  345.   Global Filter
  346.   put empty into Filter
  347.   if the hilite of button "RARE" is true then
  348.     put "R" after Filter
  349.   end if
  350.  
  351.   if the hilite of button "SPECIALIZED" is true then
  352.     put "S" after Filter
  353.   end if
  354.  
  355.   if the hilite of button "OBSOLETE" is true then
  356.     put "O" after Filter
  357.   end if
  358.  
  359.   if the hilite of button "ARCHAIC" is true then
  360.     put "A" after Filter
  361.   end if
  362.  
  363.   put return after Filter
  364.  
  365.   if the hilite of button "INFORMAL" is true then
  366.     put "I" after Filter
  367.   end if
  368.  
  369.   if the hilite of button "SLANG" is true then
  370.     put "S" after Filter
  371.   end if
  372.  
  373.   if the hilite of button "VULGAR" is true then
  374.     put "V" after Filter
  375.   end if
  376.  
  377.   if the hilite of button "OBSCENE" is true then
  378.     put "O" after Filter
  379.   end if
  380.  
  381.   put return after Filter
  382.  
  383.   if the hilite of button "AMERICAN" is true then
  384.     put "A" after Filter
  385.   end if
  386.  
  387.   if the hilite of button "BRITISH" is true then
  388.     put "B" after Filter
  389.   end if
  390.  
  391.   if the hilite of button "FOREIGN" is true then
  392.     put "F" after Filter
  393.   end if
  394.  
  395.   put return after Filter
  396.  
  397.   if the hilite of button "DERIVED" is true then
  398.     put "D" after Filter
  399.   end if
  400.  
  401.   if the hilite of button "PLURALS" is true then
  402.     put "P" after Filter
  403.   end if
  404.  
  405.   if the hilite of button "NAMES" is true then
  406.     put "N" after Filter
  407.   end if
  408.  
  409.   picktarget
  410.  
  411.   pop card
  412. end mouseUp
  413.  
  414.  
  415.  
  416. -- part 21 (button)
  417. -- low flags: 00
  418. -- high flags: E005
  419. -- rect: left=61 top=242 right=268 bottom=199
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 0 / 0
  422. -- text alignment: 1
  423. -- font id: 0
  424. -- text size: 12
  425. -- style flags: 0
  426. -- line height: 16
  427. -- part name: Apply to Guesses
  428. ----- HyperTalk script -----
  429. on mouseUp
  430.   Global FilterGuesses
  431.   if the hilite of btn "Apply to Guesses" is false then
  432.     beep
  433.     answer "You really want unrestricted guesses?" with "Yes" or "Cancel"
  434.     if it is "Cancel" then set the hilite of btn "Apply to Guesses" to true
  435.   end if
  436.  
  437.   put the hilite of btn "Apply to Guesses" into FilterGuesses
  438. end mouseUp
  439.  
  440.  
  441.  
  442. -- part 22 (button)
  443. -- low flags: 00
  444. -- high flags: C005
  445. -- rect: left=61 top=215 right=241 bottom=199
  446. -- title width / last selected line: 0
  447. -- icon id / first selected line: 0 / 0
  448. -- text alignment: 1
  449. -- font id: 0
  450. -- text size: 12
  451. -- style flags: 0
  452. -- line height: 16
  453. -- part name: Apply to Targets
  454. ----- HyperTalk script -----
  455. on mouseUp
  456.   beep
  457.   answer "Filters Always Apply To Targets"
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 24 (field)
  463. -- low flags: 01
  464. -- high flags: 2004
  465. -- rect: left=249 top=196 right=255 bottom=446
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 0
  469. -- font id: 3
  470. -- text size: 9
  471. -- style flags: 0
  472. -- line height: 12
  473. -- part name: 
  474.  
  475.  
  476. -- part contents for card part 24
  477. ----- text -----
  478. Use the buttons on this card to control the playing vocabulary. Click on buttons to allow or disallow words that fall into the indicated classes.